home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / G / GEnie HyperLibrary.cpt / GEnie HyperLibrary / card_4795.txt < prev    next >
Text File  |  1988-03-14  |  3KB  |  113 lines
  1. -- card: 4795 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 4361
  5. -- name: Gotta Have Report
  6.  
  7.  
  8. -- part 8 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=0 top=319 right=342 bottom=23
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1014 / 1014
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: go Maybe I Want Report
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual dissolve
  23.   go card id 2922
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 9 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=489 top=319 right=342 bottom=512
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 1013 / 1013
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: go Already Have Report
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   visual dissolve
  43.   go next
  44. end mouseUp
  45.  
  46.  
  47.  
  48. -- part 10 (field)
  49. -- low flags: 01
  50. -- high flags: 0002
  51. -- rect: left=132 top=319 right=339 bottom=364
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 3
  56. -- text size: 12
  57. -- style flags: 256
  58. -- line height: 16
  59. -- part name: Report Button
  60. ----- HyperTalk script -----
  61. on mouseup
  62.   answer "Are you sure you want to prepare a report?" with "Yes" or "Cancel"
  63.   if it is "Cancel" then exit mouseUp
  64.   else
  65.     set lockScreen to true
  66.     set cursor to 4
  67.     push card
  68.     go to card 1 of background "library"
  69.     put empty into temp
  70.     repeat for the number of cards-4
  71.       if line 1 of field "chex" ‚↠empty then put field "info" & return & "/\/\/ /\/\/ /\/\/ /\/\/ /\/\/ /\/\/ /\/\/" & return after temp
  72.       go next
  73.     end repeat
  74.     pop card
  75.     put temp into field "report"
  76.   end if
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 11 (button)
  82. -- low flags: 00
  83. -- high flags: 8000
  84. -- rect: left=404 top=151 right=201 bottom=504
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 1007 / 1007
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Print Report
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   get the short date
  96.   put "Gotta Get Report (" & it & ")"into reprt
  97.   open file reprt
  98.   write field 1 to file reprt
  99.   close file reprt
  100.   show field "Print"
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part contents for card part 10
  106. ----- text -----
  107. "Gotta Get It" Report
  108.  
  109. -- part contents for background part 11
  110. ----- text -----
  111. I had hoped to be able to automatically print, but it seems that you can't just print a "Text" file.  
  112.  
  113. So, you're going to have to choose a Word Processor, wait until it opens, and then print the appropriately named text file.